R Notebook

This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

json_file <-
  jsonlite::read_json(".//data-raw/saved/Dominican Republic--2021-02-25-17-09-27.json")

cannot open file './/data-raw/saved/Dominican Republic--2021-02-25-17-09-27.json': No such file or directoryError in open.connection(con, "rb") : cannot open the connection

phase_times = get_data_of_phase_times(json_file) %>%

Warning messages:
1: In (function (e)  : You have a leaked pooled object.
2: In (function (e)  : You have a leaked pooled object.

  tidyr::pivot_longer(everything(), values_to = "phase_time") %>%
  dplyr::mutate(name = factor(name, levels = c("Dry", "Mid", "Dev"))) %>% # add levels
  dplyr::mutate(percent = as.character(round(phase_time / sum(phase_time),2)), # Get phase percent
                phase_time_mid = cumsum(phase_time)) %>% # Get midpoint
  dplyr::mutate(phase_times_posix_mid = phase_time_mid / 2,
                mid_point = cumsum(phase_times_posix_mid)) %>%
  dplyr::mutate_if(is.integer, lubridate::as_datetime) %>% # Make into datetime so we can chart it
 dplyr::mutate_if(is.numeric, lubridate::as_datetime)